home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Dr. Windows 3
/
dr win3.zip
/
dr win3
/
VISUALBA
/
3CTRLS.ZIP
/
MENU.FRM
< prev
next >
Wrap
Text File
|
1993-10-05
|
7KB
|
228 lines
VERSION 2.00
Begin Form fMenu
BackColor = &H00C0C0C0&
Caption = "Resize me and see buttons size and elastic caption"
Height = 4035
Left = 90
LinkTopic = "Form2"
ScaleHeight = 3570
ScaleWidth = 7440
Top = 1320
Width = 7620
Begin VideoSoftElastic VSElastic1
Align = 5 'Fill Container
BackColor = &H00C0C0C0&
BevelOuter = 1 'Raised
BevelOuterWidth = 1
Caption = "Welcome to the VSVBX Demo"
CaptionPos = 4 'Center Center
FontBold = -1 'True
FontItalic = -1 'True
FontName = "Arial"
FontSize = 18
FontStrikethru = 0 'False
FontUnderline = 0 'False
ForeColor = &H000000FF&
Height = 3045
Index = 0
Left = 0
TabIndex = 4
Top = 0
Width = 3300
End
Begin VideoSoftElastic VSElastic1
Align = 4 'Align Right
AutoSizeChildren= 3 'Even Vertical
BackColor = &H00C0C0C0&
BevelOuter = 1 'Raised
BevelOuterWidth = 1
Height = 3045
Index = 1
Left = 3300
TabIndex = 6
Top = 0
Width = 2070
Begin CommandButton Command1
BackColor = &H00808080&
Caption = "&Splitter bars"
Height = 510
Index = 0
Left = 90
TabIndex = 0
Top = 690
Width = 1890
End
Begin CommandButton Command1
BackColor = &H00808080&
Caption = "&Resizing/Flood"
Height = 495
Index = 1
Left = 90
TabIndex = 1
Top = 1290
Width = 1890
End
Begin CommandButton Command1
BackColor = &H00808080&
Caption = "&IndexTab"
Height = 495
Index = 2
Left = 90
TabIndex = 2
Top = 1875
Width = 1890
End
Begin CommandButton Command1
BackColor = &H00808080&
Caption = "&AWKsome"
Height = 495
Index = 3
Left = 90
TabIndex = 3
Top = 2460
Width = 1890
End
Begin VideoSoftElastic VSElastic2
BackColor = &H00000000&
BorderWidth = 0
Caption = "Examples"
CaptionPos = 4 'Center Center
FontBold = -1 'True
FontItalic = -1 'True
FontName = "Arial"
FontSize = 18
FontStrikethru = 0 'False
FontUnderline = 0 'False
ForeColor = &H0000FFFF&
Height = 510
Index = 0
Left = 90
TabIndex = 7
Top = 90
Width = 1890
End
End
Begin VideoSoftElastic VSElastic1
Align = 4 'Align Right
AutoSizeChildren= 3 'Even Vertical
BackColor = &H00C0C0C0&
BevelOuter = 1 'Raised
BevelOuterWidth = 1
Height = 3045
Index = 2
Left = 5370
TabIndex = 8
Top = 0
Width = 2070
Begin VideoSoftElastic VSElastic2
BackColor = &H00000000&
BorderWidth = 0
Caption = "New"
CaptionPos = 4 'Center Center
FontBold = -1 'True
FontItalic = -1 'True
FontName = "Arial"
FontSize = 18
FontStrikethru = 0 'False
FontUnderline = 0 'False
ForeColor = &H00FFFF00&
Height = 510
Index = 1
Left = 90
TabIndex = 13
Top = 90
Width = 1890
End
Begin CommandButton Command1
BackColor = &H00808080&
Caption = "&Fake Buttons"
Height = 495
Index = 7
Left = 90
TabIndex = 12
Top = 2460
Width = 1890
End
Begin CommandButton Command1
BackColor = &H00808080&
Caption = "&Min && Max"
Height = 495
Index = 6
Left = 90
TabIndex = 11
Top = 1875
Width = 1890
End
Begin CommandButton Command1
BackColor = &H00808080&
Caption = "&No Labels"
Height = 495
Index = 5
Left = 90
TabIndex = 10
Top = 1290
Width = 1890
End
Begin CommandButton Command1
BackColor = &H00808080&
Caption = "&Proportional"
Height = 510
Index = 4
Left = 90
TabIndex = 9
Top = 690
Width = 1890
End
End
Begin VideoSoftElastic StatusBar
Align = 2 'Align Bottom
AutoSizeChildren= 2 'Uneven Horizontal
BackColor = &H00C0C0C0&
BevelInner = 0 'None
BevelOuter = 1 'Raised
BevelOuterWidth = 1
BorderWidth = 2
Caption = "VideoSoft, 2625 Alcatraz Avenue, Suite 271, Berkeley, California (510) 547-7295"
CaptionPos = 4 'Center Center
FontBold = 0 'False
FontItalic = 0 'False
FontName = "MS Sans Serif"
FontSize = 8.25
FontStrikethru = 0 'False
FontUnderline = 0 'False
ForeColor = &H00000000&
Height = 525
Left = 0
TabIndex = 5
Top = 3045
Width = 7440
WordWrap = 0 'False
End
End
Option Explicit
Sub Command1_Click (Index As Integer)
mousepointer = 11
Select Case Index
Case 0
Splitter.Show 1
Case 1
fFlood.Show 1
Case 2
IndexTab.Show 1
Case 3
Awk.Show 1
Case 4
fProp.Show 1
Case 5
fNoLabels.Show 1
Case 6
fminmax.Show 1
Case 7
fbuttons.Show 1
End Select
mousepointer = 0
End Sub